#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100];

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

for (int i=1; i<=n; i++)

cout<<A[i]<<" ";

return 0;

}

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

a) 

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

b) 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

program mang;

uses crt;

var n,i:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap so phan tu :');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(n);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

theo C++ nhé bạn

#include<bits/stdc++.h>

using namespace std;

int a[100],n,i;

int main()

{

cout<<"hay nhap so phan tu cua mang: ";     

cin>>n;

cout<<"hay nhap gia tri cac phan tu cua mang: ";   

for(i=1;i<=n;i++) cin>>a[i];

cout<<"gia tri cac phan tu trong mang la: ";

 for(i=1;i<=n;i++) cout<<a[i]<<" ";

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Tự học đi bạn ơi =))

viết chương trình nhập vào 1 số nguyên dương n, in ra màn hình tích của nó.( mô tả thuật toán và viết CT)

---------------------

Thuật toán :

B1: Nhập n

B2: t←1; i←1;

B3: Nếu i>=n thì in ra kết quả và kết thúc

B4: t←t*i;

B5: i←i+1 quay lại bước 3

Viết chương trình:

Program hotrotinhoc_hoc24;

var i,n: integer;

t: longint;

begin

write('Nhap n='); readln(n);

t:=1; i:=1;

while i<n do

begin

t:=t*i;

i:=i+1;

end;

write(t);

readln

end.

Bài 2:

*Mô tả thuật toán

-Bước 1: Nhập n

-Bước 2: dem←0; i←1;

-Bước 3: nếu i mod 3=0 thì xuất i và dem←dem+1;

-Bước 4: i←i+1

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất dem

-Bước 7: Kết thúc

*Viết chương trình

uses crt;

var n,i,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

writeln('Cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ');

dem:=0;

for i:=1 to n do

if i mod 3=0 then

begin

write(i:4);

inc(dem);

end;

writeln;

writeln('So cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',dem);

readln;

end.